home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc2_x / scincprs.sit / Command stack / card_3506.txt < prev    next >
Text File  |  1991-02-03  |  6KB  |  294 lines
  1. -- card: 3506 from stack: in
  2. -- bmap block id: 2896
  3. -- flags: 4000
  4. -- background id: 2690
  5. -- name: searchCard
  6. ----- HyperTalk script -----
  7. on goReferenceStack
  8.   global searchString, holder, scanString
  9.   set lockScreen to true
  10.   go to "references"
  11.   send phraseSearch
  12.   set lockScreen to false
  13. end goReferenceStack
  14.  
  15.  
  16. -- part 1 (button)
  17. -- low flags: 00
  18. -- high flags: A003
  19. -- rect: left=38 top=35 right=57 bottom=113
  20. -- title width / last selected line: 0
  21. -- icon id / first selected line: 0 / 0
  22. -- text alignment: 1
  23. -- font id: 0
  24. -- text size: 12
  25. -- style flags: 0
  26. -- line height: 16
  27. -- part name: Topic
  28. ----- HyperTalk script -----
  29. on mouseUp
  30.   global holder
  31.   put "Topic" into holder
  32.   send goReferenceStack
  33. end mouseUp
  34.  
  35.  
  36.  
  37. -- part 2 (field)
  38. -- low flags: 00
  39. -- high flags: 0007
  40. -- rect: left=56 top=133 right=256 bottom=457
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 0 / 0
  43. -- text alignment: 0
  44. -- font id: 3
  45. -- text size: 12
  46. -- style flags: 0
  47. -- line height: 16
  48. -- part name: whereItIs
  49. ----- HyperTalk script -----
  50. on openField
  51.   hide card field "intStore"
  52.   set the numberFormat to "0."
  53.   put item 2 of the clickLoc into y
  54.   subtract item 2 of the rect of card field "whereItIs" from y
  55.   add the scroll of card field "whereItIs" to y
  56.   divide y by the textHeight
  57.   put y into card field "intStore"
  58.   put card field "intStore" into x
  59.   select line x of card field "whereItIs"
  60. end openField
  61.  
  62.  
  63. -- part 3 (field)
  64. -- low flags: 00
  65. -- high flags: 0001
  66. -- rect: left=291 top=262 right=282 bottom=357
  67. -- title width / last selected line: 0
  68. -- icon id / first selected line: 0 / 0
  69. -- text alignment: 0
  70. -- font id: 3
  71. -- text size: 14
  72. -- style flags: 0
  73. -- line height: 18
  74. -- part name: lastField
  75.  
  76.  
  77. -- part 5 (button)
  78. -- low flags: 00
  79. -- high flags: A003
  80. -- rect: left=119 top=35 right=57 bottom=193
  81. -- title width / last selected line: 0
  82. -- icon id / first selected line: 0 / 0
  83. -- text alignment: 1
  84. -- font id: 0
  85. -- text size: 12
  86. -- style flags: 0
  87. -- line height: 16
  88. -- part name: Title
  89. ----- HyperTalk script -----
  90. on mouseUp
  91.   global holder
  92.   put "Title" into holder
  93.   send goReferenceStack
  94. end mouseUp
  95.  
  96.  
  97.  
  98. -- part 6 (button)
  99. -- low flags: 00
  100. -- high flags: A003
  101. -- rect: left=37 top=63 right=85 bottom=114
  102. -- title width / last selected line: 0
  103. -- icon id / first selected line: 0 / 0
  104. -- text alignment: 1
  105. -- font id: 0
  106. -- text size: 12
  107. -- style flags: 0
  108. -- line height: 16
  109. -- part name: Author
  110. ----- HyperTalk script -----
  111. on mouseUp
  112.   global holder
  113.   put "Author" into holder
  114.   send goReferenceStack
  115. end mouseUp
  116.  
  117.  
  118.  
  119. -- part 7 (button)
  120. -- low flags: 00
  121. -- high flags: A003
  122. -- rect: left=198 top=35 right=57 bottom=274
  123. -- title width / last selected line: 0
  124. -- icon id / first selected line: 0 / 0
  125. -- text alignment: 1
  126. -- font id: 0
  127. -- text size: 12
  128. -- style flags: 0
  129. -- line height: 16
  130. -- part name: Reference
  131. ----- HyperTalk script -----
  132. on mouseUp
  133.   global holder
  134.   put "Ref" into holder
  135.   send goReferenceStack
  136. end mouseUp
  137.  
  138.  
  139. -- part 8 (button)
  140. -- low flags: 00
  141. -- high flags: A003
  142. -- rect: left=198 top=63 right=85 bottom=273
  143. -- title width / last selected line: 0
  144. -- icon id / first selected line: 0 / 0
  145. -- text alignment: 1
  146. -- font id: 0
  147. -- text size: 12
  148. -- style flags: 0
  149. -- line height: 16
  150. -- part name: Notes
  151. ----- HyperTalk script -----
  152. on mouseUp
  153.   global holder
  154.   put "Notes" into holder
  155.   send goReferenceStack
  156. end mouseUp
  157.  
  158.  
  159.  
  160. -- part 12 (field)
  161. -- low flags: 80
  162. -- high flags: 0000
  163. -- rect: left=337 top=276 right=307 bottom=373
  164. -- title width / last selected line: 0
  165. -- icon id / first selected line: 0 / 0
  166. -- text alignment: 0
  167. -- font id: 3
  168. -- text size: 12
  169. -- style flags: 0
  170. -- line height: 16
  171. -- part name: intStore
  172.  
  173.  
  174. -- part 27 (button)
  175. -- low flags: 00
  176. -- high flags: A003
  177. -- rect: left=329 top=49 right=68 bottom=397
  178. -- title width / last selected line: 0
  179. -- icon id / first selected line: 0 / 0
  180. -- text alignment: 1
  181. -- font id: 0
  182. -- text size: 12
  183. -- style flags: 0
  184. -- line height: 16
  185. -- part name: Item
  186. ----- HyperTalk script -----
  187. on mouseUp
  188.   global scanString, stringPosition, recordCount
  189.   --scanString is string of card numbers
  190.   --stringPosition is a position in scanString containing a card number.
  191.   put card field "IntStore" into stringPosition
  192.   subtract 1 from stringPosition
  193.   set lockScreen to True
  194.   go to "references"
  195.   send scanforward
  196. end mouseUp
  197.  
  198.  
  199.  
  200. -- part 28 (button)
  201. -- low flags: 00
  202. -- high flags: A003
  203. -- rect: left=404 top=49 right=68 bottom=472
  204. -- title width / last selected line: 0
  205. -- icon id / first selected line: 0 / 0
  206. -- text alignment: 1
  207. -- font id: 0
  208. -- text size: 12
  209. -- style flags: 0
  210. -- line height: 16
  211. -- part name: List
  212. ----- HyperTalk script -----
  213. on mouseUp
  214.   global scanString, stringPosition, recordCount
  215.   --scanString is string of card numbers
  216.   --stringPosition is a position in scanString containing a card number.
  217.   put card field "IntStore" into stringPosition
  218.   subtract 1 from stringPosition
  219.   set lockScreen to True
  220.   go to "references"
  221.   send scanforward
  222. end mouseUp
  223.  
  224.  
  225. -- part 29 (button)
  226. -- low flags: 00
  227. -- high flags: A003
  228. -- rect: left=119 top=63 right=85 bottom=193
  229. -- title width / last selected line: 0
  230. -- icon id / first selected line: 0 / 0
  231. -- text alignment: 1
  232. -- font id: 0
  233. -- text size: 12
  234. -- style flags: 0
  235. -- line height: 16
  236. -- part name: Affiliation
  237. ----- HyperTalk script -----
  238. on mouseUp
  239.   global holder
  240.   put "Affil" into holder
  241.   send goReferenceStack
  242. end mouseUp
  243.  
  244.  
  245.  
  246. -- part 30 (field)
  247. -- low flags: 00
  248. -- high flags: 0001
  249. -- rect: left=168 top=116 right=132 bottom=344
  250. -- title width / last selected line: 0
  251. -- icon id / first selected line: 0 / 0
  252. -- text alignment: 0
  253. -- font id: 3
  254. -- text size: 12
  255. -- style flags: 0
  256. -- line height: 16
  257. -- part name: searchName
  258.  
  259.  
  260. -- part 31 (field)
  261. -- low flags: 80
  262. -- high flags: 0000
  263. -- rect: left=110 top=283 right=302 bottom=361
  264. -- title width / last selected line: 0
  265. -- icon id / first selected line: 0 / 0
  266. -- text alignment: 0
  267. -- font id: 3
  268. -- text size: 12
  269. -- style flags: 0
  270. -- line height: 16
  271. -- part name: scnField
  272.  
  273.  
  274. -- part contents for background part 3
  275. ----- text -----
  276. 2
  277.  
  278. -- part contents for card part 12
  279. ----- text -----
  280. 6
  281.  
  282. -- part contents for card part 31
  283. ----- text -----
  284. 3,4,5,22,32,43,91,92,/
  285.  
  286. -- part contents for card part 2
  287. ----- text -----
  288.  
  289.  
  290.  
  291.  
  292.  
  293.  
  294.